home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / egavga.swg / 0181_Mode 13 Fast Clear Screen.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-26  |  318 b   |  16 lines
  1. {
  2. > How do I clear the screen fast (asm code please) in mode 13h
  3. > (320x200x256)???????
  4. }
  5. Procedure ClearScreen(Col : Byte); assembler;
  6. asm
  7.    mov  ax, $A000
  8.    mov  es, ax
  9.    mov  cx, 32000
  10.    xor  di, di
  11.    mov  al, Col
  12.    mov  ah, al
  13.    rep  stosw
  14. end;
  15. { that should do it.  It'll clear it to Col }
  16.